#!!PERL!

use strict;

my $peer_csv = $ARGV[0];
my @peers = split(",", $peer_csv);
foreach my $peer (sort @peers) {
    print "$peer\n";
}
